home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / gridex / modmain.bas < prev    next >
Encoding:
BASIC Source File  |  1998-01-01  |  404 b   |  19 lines
  1. Attribute VB_Name = "modMain"
  2. Option Explicit
  3.  
  4. Public Const CatalogCustomers = 1
  5. Public Const CatalogSuppliers = 2
  6. Public Const CatalogEmployees = 3
  7. Public Const CatalogProducts = 4
  8. Public Const CatalogOrders = 5
  9.  
  10. Public Function TextToNull(strText As String) As Variant
  11.  
  12.     If strText = "" Then
  13.         TextToNull = Null
  14.     Else
  15.         TextToNull = strText
  16.     End If
  17.  
  18. End Function
  19.